home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / EDITORS / FUE / rc_emacs < prev    next >
Encoding:
Text File  |  1991-04-21  |  9.0 KB  |  418 lines
  1. set $discmd FALSE
  2.  
  3. write-message "[Setting up....]"
  4.  
  5. ; If you screen "SNOWS", comment this line
  6.        set $flicker "FALSE"
  7.  
  8. ; To use an IBM-PC EGA card, uncomment the following line
  9. ;     set $sres "EGA"
  10.  
  11. ;macro 1 to toggle function key help display
  12.  
  13. add-global-mode magic
  14. add-global-mode exact
  15. add-global-mode asave
  16. add-global-mode "blue"
  17.  
  18. execute-file "ue_mac_rc"
  19.  
  20. ;{{{  bind procedures to macros
  21. ;{{{  1=help
  22. 1 store-macro
  23.   execute-procedure help
  24. !endm
  25.  
  26. ;}}}
  27. ;{{{  2=clear-pick
  28. 2 store-macro
  29.   execute-procedure clear-pick
  30. !endm
  31.  
  32. ;}}}
  33. ;{{{  3=pick-line
  34. 3       store-macro
  35.   execute-procedure pick-line
  36. !endm
  37.  
  38. ;}}}
  39. ;{{{  4=move-line
  40. 4       store-macro
  41.   execute-procedure move-line
  42. !endm
  43.  
  44. ;}}}
  45. ;{{{  5=copy-pick
  46. 5       store-macro
  47.   execute-procedure copy-pick
  48. !endm
  49.  
  50. ;}}}
  51. ;{{{  6=put-buffer
  52. 6       store-macro   
  53.   execute-procedure put-buffer
  54. !endm
  55.  
  56. ;}}}
  57. ;{{{  7=copy-to-fold
  58. 7       store-macro
  59.   execute-procedure copy-to-fold
  60. !endm
  61.  
  62. ;}}}
  63. ;{{{  8=copy-line
  64. 8       store-macro
  65.   execute-procedure copy-line
  66. !endm
  67.  
  68. ;}}}
  69. ;{{{  9=delete-line
  70. 9       store-macro
  71.   execute-procedure delete-line
  72. !endm
  73.  
  74. ;}}}
  75. ;{{{  10=pick-region
  76. 10      store-macro
  77.   execute-procedure pick-region
  78. !endm
  79.  
  80. ;}}}
  81.  
  82. ;{{{  ; 13 - unfile fold
  83. ; 13 - unfile fold
  84. 13 store-macro
  85.   !if &seq $ltype LSOFOLD
  86.     execute-procedure t-filed
  87.   !else
  88.     execute-procedure t-unfiled
  89.   !endif
  90. !endm
  91.  
  92. ;}}}
  93. ;{{{  ; 14 - comment fold
  94. ; 14 - comment fold
  95. 14      store-macro
  96.   execute-procedure comment-fold
  97. !endm
  98.  
  99.  
  100. ;}}}
  101. ;{{{  ; 15 - uncomment fold
  102. ; 15 - uncomment fold
  103. 15      store-macro
  104.   execute-procedure uncomment-fold
  105. !endm
  106.  
  107. ;}}}
  108. ;{{{  ; 16 - auto fold
  109. ; 16 - auto fold
  110. 16      store-macro
  111.   execute-procedure auto-fold
  112. !endm
  113.  
  114. ;}}}
  115. ;{{{  ; 17 - execute t-listbuf
  116. ; 17 - execute t-listbuf
  117.  
  118. 17      store-macro
  119.   !if %t-lstflg
  120.     execute-procedure t-listbufoff
  121.   !else
  122.     execute-procedure t-listbuf
  123.   !endif
  124. !endm
  125.  
  126. ;}}}
  127.   
  128. ;{{{  ; 21 - create-fold macro
  129. ; 21 - create-fold macro
  130. 21      store-macro
  131.     execute-procedure create-fold
  132. !endm
  133.  
  134. ;}}}
  135. ;{{{  ; 22 - enter fold/file
  136. ;22 - enter fold/file
  137. 22 store-macro
  138.   !if &seq $ltype LSOFOLD 
  139.     !force enter-fold
  140.   !else
  141.     execute-procedure t-enter-filed
  142.   !endif
  143. !endm
  144.  
  145. ;}}}
  146. ;{{{  ; 23 - exit fold/file
  147. ; 23 - exit fold/file
  148. 23 store-macro
  149.   !force exit-fold
  150.   !if ¬ $status
  151.     execute-procedure t-exit-filed
  152.   !endif
  153. !endm
  154.  
  155. ;}}}
  156. ;{{{  ; 24 - exit file
  157. ; 24 - exit fold/file
  158. 24 store-macro
  159.   execute-procedure t-exit-filed
  160. !endm
  161. ;}}}
  162.  
  163. ;{{{  ; 25 - execute t-sa
  164. ; 25 - execute t-sa
  165. 25      store-macro
  166.   execute-procedure t-sa
  167. !endm
  168. ;}}}
  169. ;{{{  ; 26 - execute t-listbuf
  170. ; 26 - execute t-listbuf
  171. 26      store-macro
  172.   execute-procedure t-listbuf
  173. !endm
  174. ;}}}
  175. ;{{{  ; 27 - execute t-gotobuf
  176. ; 27 - execute t-gotobuf
  177. 27      store-macro
  178.   execute-procedure t-gotobuf
  179. !endm
  180. ;}}}
  181. ;{{{  ; 28 - execute t-ctags
  182. ; 28 - execute t-ctags
  183. 28      store-macro
  184.   execute-procedure t-ctags
  185. !endm
  186. ;}}}
  187. ;{{{  ; 29 - execute t-cleartags
  188. ; 29 - execute t-cleartags
  189. 29      store-macro
  190.   execute-procedure t-cleartags
  191. !endm
  192. ;}}}
  193. ;{{{  ; 30 - execute t-delbuf
  194. ; 30 - execute t-delbuf
  195. 30      store-macro
  196.   execute-procedure t-delbuf
  197. !endm
  198. ;}}}
  199.  
  200.  
  201. ;{{{  ; 31 - toggle num pad action
  202. 31      store-macro
  203.   set $discmd FALSE
  204.   !if &seq %escnum "num"
  205.     ;{{{  execute macros
  206.     bind-to-key execute-macro-21        M-1
  207.     bind-to-key execute-macro-13        M-2
  208.     bind-to-key execute-macro-3         M-3
  209.     bind-to-key execute-macro-5         M-4
  210.     bind-to-key execute-macro-6         M-5
  211.     bind-to-key execute-macro-2         M-6
  212.     bind-to-key execute-macro-7         M-7
  213.     bind-to-key execute-macro-17        M-8
  214.     bind-to-key execute-macro-32        M-9
  215.     ;}}}
  216.     set %escnum "fold"
  217.     write-message "[Folding keys set M-1 -> M-9: (toggle M-0)]"
  218.   !else
  219.     ;{{{  unbind keys
  220.     unbind-key  M-1
  221.     unbind-key  M-2
  222.     unbind-key  M-3
  223.     unbind-key  M-4
  224.     unbind-key  M-5
  225.     unbind-key  M-6
  226.     unbind-key  M-7
  227.     unbind-key  M-8
  228.     unbind-key  M-9
  229.     ;}}}
  230.     set %escnum "num"
  231.     write-message "[Numeric keys set: (toggle M-0)]"
  232.   !endif
  233.   set $discmd TRUE
  234. !endm
  235. ;}}}
  236.  
  237. ;{{{  ; 32 - display current line
  238. ; display the current line number in message window
  239. 32    store-macro
  240.   write-message $curline
  241. !endm
  242. ;}}}
  243. ;}}}
  244.  
  245. write-message "[Binding function keys]"
  246.  
  247. ;{{{  ;       ***** Rebind the Function key group
  248. ;       ***** Rebind the Function key group
  249. bind-to-key execute-macro-1             FN1
  250. bind-to-key execute-macro-4             FN3
  251. bind-to-key execute-macro-8             FN4
  252.  
  253. bind-to-key execute-macro-21            M-1
  254. bind-to-key execute-macro-13            M-2
  255. bind-to-key execute-macro-3             M-3
  256. bind-to-key execute-macro-5             M-4
  257. bind-to-key execute-macro-6             M-5
  258. bind-to-key execute-macro-2             M-6
  259. bind-to-key execute-macro-7             M-7
  260. bind-to-key execute-macro-17            M-8
  261. bind-to-key execute-macro-32            M-9
  262. bind-to-key execute-macro-31            M-0
  263. set %escnum "fold"
  264. ;}}}
  265.  
  266. ;{{{  ; arc cursor keys
  267. ; arc cursor keys!
  268. bind-to-key previous-line               FNF
  269. bind-to-key next-line                   FNE
  270. bind-to-key forward-character           FND
  271. bind-to-key backward-character          FNC
  272. bind-to-key previous-page               S-FNF
  273. bind-to-key next-page                   S-FNE
  274. bind-to-key next-word                   S-FND
  275. bind-to-key previous-word               S-FNC
  276. bind-to-key beginning-of-file           FN^F
  277. bind-to-key end-of-file                 FN^E
  278. bind-to-key beginning-of-line           FN^C
  279. bind-to-key end-of-line                 FN^D
  280. ;}}}
  281.  
  282.  
  283. write-message "[folding keys]"
  284.  
  285. !if &seq $progname "uEmacs" 
  286.   ;{{{  fold key bindings
  287.   bind-to-key execute-macro-22               FNN
  288.   bind-to-key execute-macro-23               FNP
  289.   bind-to-key open-fold                      FNH
  290.   bind-to-key close-fold                     FNJ
  291.   bind-to-key execute-macro-21               FNG
  292.   
  293.   bind-to-key remove-fold                    FN^P
  294.   bind-to-key quick-exit                     FN^H
  295.   
  296.   ; FNB is copy key - copy top line of fold to comment line
  297.   bind-to-key execute-macro-7                FNB
  298.   
  299.   ; auto-fold
  300.   bind-to-key execute-macro-16               ^A
  301.   
  302.   bind-to-key searchfold-forward                ^S
  303.   bind-to-key searchfold-reverse                ^R
  304.   ;}}}
  305.   ;{{{  set fold marks
  306.   write-message "[fold marks.................................]"
  307.   
  308.   ; set fold marks
  309.   set-fold-marks "c"   "/*{{{  "   "/*}}}*/"   "*/"
  310.   set-fold-marks "h"   "/*{{{  "   "/*}}}*/"   "*/"
  311.   
  312.   set-fold-marks "occ" "--{{{  "   "--}}}"     ""
  313.   set-fold-marks "inc" "--{{{  "   "--}}}"     ""
  314.   set-fold-marks "pgm" "--{{{  "   "--}}}"     ""
  315.   set-fold-marks "cfs" "/*{{{  "   "/*}}}*/"   "*/"
  316.   
  317.   set-fold-marks "mak" "#{{{  "    "#}}}"      ""
  318.   set-fold-marks "tt"  "/*{{{  "   "/*}}}*/"   "*/"
  319.   
  320.   set-fold-marks "rc"  ";{{{  "    ";}}}"      ""
  321.   ;}}}
  322. !else
  323.   ;{{{  normal bindings
  324.   bind-to-key     beginning-of-line       FN<
  325.   bind-to-key     end-of-line             FN>
  326.   ;}}}
  327. !endif
  328.  
  329. ;{{{  set readhook
  330. 20        store-macro
  331. ; arc version - looks AFTER _ or BEFORE .
  332.  
  333.         set %rctmp &sin $cfname "."
  334.  
  335.         !if &eq %rctmp 0
  336.           ;{{{  look for _
  337.           set %rctmp &sin $cfname "_"
  338.           
  339.           !if &eq %rctemp 0
  340.             !return
  341.           !else
  342.             set %rctmp &mid $cfname &add %rctmp 1 5
  343.           !endif
  344.           ;}}}
  345.         !else
  346.           ;{{{  get text before .
  347.           set %rctmp &left $cfname &sub %rctmp 1
  348.           ;}}}
  349.         !endif
  350.  
  351.         write-message %rctmp
  352.         ;{{{  c or h ?
  353.         !if &or &seq %rctmp "c" &seq %rctmp "h"
  354.                 2 handle-tab
  355.                 add-mode cmode
  356.         !endif
  357.         ;}}}
  358.  
  359.         ;{{{  mss ?
  360.         !if &seq %rctmp "mss"
  361.                 add-mode "wrap"
  362.         !endif
  363.         ;}}}
  364.  
  365.         ;{{{  occ or inc ?
  366.         !if &or &seq %rctmp "occ" &seq %rctmp "inc"
  367.                 add-mode "cmode"
  368.                 2 handle-tab
  369.         !endif
  370.         ;}}}
  371.  
  372.         !force add-mode magic
  373.  
  374. ;        !if %t-lstflg
  375. ;          !force execute-procedure t-listbuf
  376. ;        !endif
  377.  
  378. !endm
  379. set $readhook execute-macro-20
  380. ;}}}
  381.   
  382. ;bind-to-key     next-buffer       M-FNN
  383.  
  384. ;{{{  set up help buffer
  385. ; function key help window display
  386. split-current-window
  387. 1 select-buffer "Function Keys"
  388. insert-string "F1=help F2=comment F3=un/c F4=move   | ENTER |  UP | EXIT |~n"
  389. insert-string "M-1=create-fold M-2=file M-3=pick    | copy  _ top _ move |     0        .    ~n"
  390. insert-string "M-5=put M-6=clear M-7=fold-details   | LEFT  |-----| RIGHT| MAKE-FOLD REM-FOLD~n"
  391. insert-string "M-8=list-buff M-9=line-no M-0=toggle |start-l|_____| end-l| auto-fold del-line~n"
  392. insert-string "                                     | OPEN  | DOWN| CLOSE|~n"
  393. insert-string "   Folding Microemacs                | pick  - end - put  |~n"
  394. insert-string "   PCSP - Southampton University     ----------------------~n"
  395. !force add-mode "view"
  396. !force $curline resize-window
  397. unmark-buffer
  398. delete-window
  399. set %rcfkeys FALSE
  400. set %moving FALSE
  401. set $sscroll TRUE
  402. ;execute-macro-1
  403. ;}}}
  404.  
  405. !force add-mode exact
  406. !force add-mode magic
  407.  
  408. !force add-global-mode exact
  409. !force add-global-mode magic
  410.  
  411. 2 handle-tab
  412.  
  413. set $discmd TRUE        
  414.  
  415. write-message "[Setup done]"
  416.  
  417.  
  418.